home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cs.arizona.edu
/
ftp.cs.arizona.edu.tar
/
ftp.cs.arizona.edu
/
icon
/
newsgrp
/
group00b.txt
/
000035_icon-group-sender _Mon Jul 24 11:36:42 2000.msg
< prev
next >
Wrap
Internet Message Format
|
2001-01-03
|
1KB
Return-Path: <icon-group-sender>
Received: (from root@localhost)
by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id LAA12054
for icon-group-addresses; Mon, 24 Jul 2000 11:36:34 -0700 (MST)
Message-Id: <200007241836.LAA12054@baskerville.CS.Arizona.EDU>
Date: Mon, 24 Jul 2000 10:48:44 -0700
From: Steve Wampler <swampler@noao.edu>
X-Accept-Language: en
To: icon-group <icon-group@optima.CS.Arizona.EDU>
Subject: deepImage that handles empty lists...
Errors-To: icon-group-errors@optima.CS.Arizona.EDU
Status: RO
Content-Length: 689
I just noticed that deepImage() doesn't handle empty lists
correctly. Here's a fixed version...
procedure deepImage(arg)
local resultString
if string(arg) then return string(arg)
case type(arg) of {
"list": {
resultString := "["
every resultString ||:= deepImage(!arg) || ","
if (resultString[-1] == ",") then {
resultString[-1] := ""
}
resultString ||:= "]"
return resultString
}
default: return image(arg) # cop out on other structures
}
end
--
Steve Wampler- SOLIS Project, National Solar Observatory
swampler@noao.edu